Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  573 1784 (N32E64 L= 76)  1548    132        1 ( 549/1715- 600/1844) -30.1 E78-E57 N26-N37
      2 1513 1693 (N56W20 L=160)  1308    116        3 (1463/1642-1547/1739) -71.6 W13-W24 N50-N61
      3 1224 1654 (N41E06 L=134)   398    101        0 (1168/1632-1263/1669)   7.1 E10-E02 N39-N42
      4 1624 1570 (N49W32 L=172)   444     35        0 (1602/1551-1649/1587)   9.5 W29-W35 N46-N51
      5  921 1465 (N19E18 L=122)  1195    253        2 ( 870/1375- 982/1586) -35.5 E25-E11 N14-N25
      6  703 1562 (N20E35 L=105)   274     13        0 ( 685/1539- 722/1583) -33.7 E36-E33 N18-N21
      7  374 1530 (N10E60 L= 80)  1208    152        3 ( 317/1485- 435/1582)  58.0 E64-E55 N06-N14
      8  408 1487 (N08E54 L= 86)  1298    215        4 ( 323/1442- 458/1557)  52.1 E60-E50 N04-N13
      9 1355 1517 (N35W08 L=148)   363     72        0 (1319/1488-1388/1540)  -9.5 W04-W10 N33-N36
     10 1070 1264 (N11E03 L=137)   211     26        0 (1054/1241-1091/1285) -45.0 E04-E02 N09-N12
     11 1681 1157 (N21W39 L=179)   469     90        0 (1630/1137-1723/1172)   7.1 W34-W42 N20-N22
     12 1676  971 (N10W42 L=182)   370     89        0 (1657/ 941-1702/ 998) -33.7 W40-W44 N08-N12
     13  405  831 (S30E37 L=103)   347     83        0 ( 374/ 809- 445/ 861) -18.4 E39-E33 S31-S28
     14  733  799 (S24E12 L=128)   375    127        0 ( 684/ 782- 796/ 826)  15.9 E15-E08 S25-S21
     15  739  747 (S27E10 L=130)   540    222        0 ( 653/ 717- 852/ 780)  33.7 E15-E03 S30-S22
     16 1655  582 (S11W55 L=195)   403     46        0 (1639/ 552-1673/ 608)  90.0 W53-W56 S13-S09
     17 1441  567 (S18W39 L=179)   435     53        0 (1417/ 537-1461/ 600) -36.9 W37-W41 S19-S16
     18  892  522 (S37W06 L=146)   422     67        1 ( 857/ 504- 932/ 550)  36.9 W03-W08 S38-S35
     19 1498  420 (S25W53 L=193)   508     60        0 (1464/ 402-1538/ 440)   7.1 W49-W57 S25-S24
     20  972  281 (S52W26 L=166)   499     50        0 ( 947/ 254- 996/ 316) -29.7 W22-W29 S53-S49
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y