Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1398 1548 (N28W40 L= 60)   284     78        0 (1365/1522-1436/1564) -53.1 W37-W41 N25-N29
      2 1227 1414 (N25W23 L= 42)   651    195        3 (1183/1334-1264/1497)  38.7 W17-W27 N21-N29
      3  874 1313 (N27E03 L= 17)   849    316        2 ( 785/1178- 942/1427) -77.5 E06-W00 N18-N36
      4 1820 1292 (N01W64 L= 83)  1282    166        2 (1767/1215-1867/1357) -63.4 W60-W67 S04-N06
      5  758 1127 (N19E14 L=  6)   300     81        1 ( 712/1096- 793/1149) -45.0 E16-E11 N16-N20
      6  408 1050 (N20E40 L=339)   394    138        0 ( 358/1021- 463/1083)  12.5 E44-E35 N19-N21
      7  209 1005 (N20E61 L=318)   571    105        0 ( 187/ 960- 243/1039)  29.7 E64-E56 N17-N22
      8 1871  776 (S31W62 L= 82)   638     67        0 (1855/ 751-1894/ 813) -36.9 W58-W68 S34-S28
      9  809  727 (S06E19 L=  0)   340    156        1 ( 774/ 667- 849/ 797)  40.6 E22-E15 S08-S02
     10 1651  736 (S26W35 L= 55)   590    115        2 (1622/ 684-1673/ 797) -83.7 W32-W37 S30-S21
     11  758  487 (S20E30 L=350)   638    268        1 ( 634/ 458- 849/ 533)  -7.6 E38-E22 S21-S18
     12 1064  497 (S26E10 L=  9)   338    114        0 (1016/ 470-1114/ 529)  15.9 E13-E06 S26-S24
     13 1342  198 (S64W01 L= 21)   570     41        1 (1318/ 180-1363/ 218)  18.4 E02-W04 S66-S60
  

    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