Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  528 1719 (N34E49 L=198)  1212    210        2 ( 498/1672- 567/1772) -45.0 E55-E44 N29-N38
      2  692 1606 (N26E31 L=216)   303     70        2 ( 662/1588- 728/1628)   0.0 E32-E27 N25-N27
      3 1348 1437 (N23W15 L=262)   732    166        3 (1288/1384-1391/1477)  39.8 W11-W18 N20-N26
      4  270 1349 (N07E57 L=189)  2066    310        4 ( 186/1288- 374/1384)  12.5 E66-E47 N02-N09
      5 1202 1305 (N13W07 L=254)   302     80        2 (1166/1278-1238/1330) -11.3 W04-W09 N11-N14
      6 1575 1219 (N13W32 L=279)  1329    264        6 (1510/1096-1618/1317) -59.7 W27-W35 N06-N18
      7  378 1195 (S02E44 L=203)   426    149        1 ( 355/1143- 411/1269) -45.0 E46-E40 S04-N02
      8  243 1016 (S13E54 L=193)  1025    322        1 ( 178/ 882- 315/1133)  53.7 E60-E48 S21-S06
      9  185 1053 (S11E61 L=186)   679    203        0 ( 125/1013- 229/1092)  20.0 E67-E55 S13-S08
     10  785  915 (S15E13 L=233)   361    152        0 ( 711/ 868- 846/ 951) -16.7 E18-E08 S17-S13
     11  690  774 (S24E18 L=228)   246    115        0 ( 672/ 708- 706/ 824)  81.9 E19-E17 S28-S21
     12 1658  756 (S12W46 L=292)   537    112        2 (1602/ 734-1703/ 779)  14.0 W41-W49 S14-S10
     13  822  393 (S49E06 L=240)   288     70        2 ( 802/ 356- 837/ 421) -78.7 E08-E04 S51-S46
     14 1106  308 (S51W21 L=268)   317    123        1 (1070/ 287-1151/ 349) -16.7 W16-W26 S52-S48
     15  864  207 (S66W01 L=248)   614     89        2 ( 831/ 184- 895/ 237)   7.1 E03-W05 S68-S62
  

    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