Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  775 1635 (N23E34 L=207)   315    140        1 ( 743/1574- 812/1687) -77.5 E35-E32 N18-N27
      2  507 1623 (N16E53 L=188)   334     90        1 ( 484/1591- 524/1646) -18.4 E55-E49 N14-N17
      3  466 1518 (N08E50 L=191)   889    201        4 ( 387/1481- 545/1569)  48.4 E56-E45 N04-N13
      4 1226 1517 (N29E03 L=238)   262     41        1 (1199/1496-1249/1533)  18.4 E04-E01 N27-N30
      5 1315 1388 (N23W07 L=247)   447    107        1 (1295/1346-1336/1448) -45.0 W03-W08 N20-N26
      6  275 1178 (S15E54 L=187)  1136    304        0 ( 185/1091- 340/1310)  65.0 E60-E49 S21-S06
      7  898 1179 (S00E11 L=230)   246    120        1 ( 876/1122- 928/1237) -45.0 E13-E08 S02-N02
      8  267 1202 (S14E55 L=186)   328     56        0 ( 245/1171- 287/1233)  68.2 E56-E53 S16-S11
      9  837  939 (S15E08 L=233)   205     77        1 ( 808/ 896- 855/ 973) -53.1 E09-E06 S17-S13
     10  674  870 (S23E16 L=225)   494     89        3 ( 640/ 799- 712/ 936) -69.4 E18-E14 S27-S19
     11  803  893 (S19E09 L=232)   387     68        0 ( 779/ 847- 821/ 928) -53.1 E11-E06 S20-S16
     12  185  792 (S41E57 L=184)   607    152        1 ( 156/ 772- 219/ 814)   0.0 E60-E53 S41-S38
     13 1406  693 (S13W32 L=273)   364    105        0 (1354/ 652-1452/ 729)  66.8 W29-W33 S16-S09
     14  804  668 (S32E03 L=238)   327     98        0 ( 743/ 641- 840/ 693)   8.1 E07-W00 S32-S30
     15 1687  497 (S13W63 L=304)   553    118        1 (1661/ 454-1705/ 556) -56.3 W59-W65 S16-S10
     16  825  394 (S49W09 L=250)   665    160        0 ( 800/ 340- 872/ 457) -32.5 W05-W16 S52-S44
     17  946  310 (S51W24 L=265)  1130    252        4 ( 917/ 240- 982/ 390) -47.5 W18-W30 S56-S44
     18 1238  355 (S37W39 L=280)   362     69        0 (1217/ 328-1261/ 384) -21.8 W36-W41 S37-S35
     19 1078  308 (S46W33 L=274)   487     73        2 (1050/ 278-1103/ 342) -51.3 W29-W35 S47-S42
  

    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