Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1050 1752 (N38E22 L=100)  1308    202        1 ( 984/1681-1133/1792)  71.6 E25-E18 N30-N43
      2 1513 1489 (N34W18 L=140)   514     87        0 (1485/1446-1540/1529) -38.7 W15-W20 N32-N37
      3 1694 1294 (N28W35 L=158)   618    113        0 (1658/1244-1722/1342) -29.7 W31-W38 N25-N29
      4 1002 1314 (N08E09 L=114)   465    129        1 ( 956/1286-1075/1334)  45.0 E11-E05 N06-N11
      5  504 1216 (S09E35 L= 87)   389    123        0 ( 466/1164- 528/1272)  90.0 E37-E34 S12-S05
      6  392 1175 (S13E43 L= 80)   250     45        1 ( 375/1147- 412/1204) -71.6 E44-E40 S14-S11
      7  925 1071 (S07E07 L=116)   651    161        0 ( 883/ 999- 960/1144) -45.0 E10-E03 S10-S03
      8  655 1102 (S12E23 L=100)   441    101        1 ( 622/1065- 698/1142)  63.4 E24-E21 S14-S08
      9  833 1044 (S11E11 L=112)   236     51        0 ( 806/1018- 856/1069)  76.0 E12-E09 S12-S08
     10 1827  944 (N12W54 L=177)   697    111        2 (1780/ 914-1873/ 970)  29.1 W50-W59 N09-N14
     11  964  890 (S16W00 L=123)   423    134        1 ( 912/ 858-1036/ 930)  50.2 E02-W03 S18-S12
     12 1872  830 (N08W63 L=186)   813    130        4 (1846/ 783-1900/ 894) -24.0 W58-W69 N06-N10
     13 1801  853 (N07W54 L=177)   508     87        1 (1778/ 824-1831/ 891)  -9.5 W50-W58 N05-N08
     14 1066  870 (S14W06 L=129)   275    119        0 (1002/ 854-1119/ 885)  33.7 W03-W09 S16-S12
     15 1838  766 (N04W62 L=185)   488     26        1 (1817/ 747-1860/ 786)  45.0 W59-W64 N02-N05
     16 1149  697 (S21W16 L=139)   236    121        0 (1095/ 678-1188/ 733)  45.0 W13-W17 S23-S18
     17 1663  591 (S11W54 L=177)   558    112        1 (1632/ 540-1697/ 636)  90.0 W52-W55 S14-S07
     18 1130  552 (S30W21 L=144)   250     49        1 (1093/ 535-1155/ 567)  14.0 W18-W22 S31-S28
     19 1659  475 (S17W62 L=184)  1427    182        1 (1569/ 442-1727/ 500)  28.3 W55-W70 S21-S13
     20 1427  370 (S30W51 L=174)   630     62        1 (1389/ 346-1458/ 398)  36.9 W48-W53 S32-S28
  

    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