Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1212 1631 (N36E07 L= 83)  1680    500        3 (1142/1418-1306/1830) -48.2 E20-W05 N24-N52
      2 1002 1547 (N24E16 L= 73)  1492    462        2 ( 855/1397-1161/1656) -12.5 E29-E02 N18-N28
      3  561 1579 (N14E46 L= 44)   338    101        1 ( 522/1537- 585/1616) -38.7 E48-E42 N12-N16
      4  315 1480 (N04E62 L= 28)   484     75        0 ( 276/1456- 346/1499)  23.2 E65-E58 N01-N04
      5 1460 1297 (N22W18 L=108)   752    274        1 (1418/1211-1508/1423) -42.3 W12-W23 N18-N29
      6 1550 1310 (N26W24 L=114)   800    226        0 (1478/1267-1591/1386)  68.2 W18-W26 N22-N32
      7 1832 1323 (N38W52 L=142)  1061    115        1 (1801/1273-1876/1356)  26.6 W47-W61 N32-N41
      8  260 1297 (S08E59 L= 31)   495     86        1 ( 239/1250- 276/1334) -68.2 E62-E56 S10-S05
      9  692 1270 (S00E25 L= 65)   618    207        1 ( 637/1216- 759/1320)  56.3 E27-E21 S04-N03
     10  154 1201 (S15E70 L= 20)   708     47        1 ( 134/1177- 176/1228) -23.2 E73-E66 S16-S13
     11  742 1195 (S03E20 L= 70)   264     46        0 ( 717/1171- 759/1223) -71.6 E21-E18 S04-S01
     12  729 1062 (S11E18 L= 72)   516    172        3 ( 659/1001- 779/1119)  60.9 E20-E15 S15-S06
     13 1389  901 (S02W24 L=114)  1061    218        3 (1356/ 802-1437/ 997) -35.0 W19-W29 S06-N02
     14  335  933 (S28E44 L= 46)   307     94        0 ( 302/ 890- 355/ 967) -31.0 E46-E41 S29-S25
     15 1701  781 (N01W49 L=139)   800    308        1 (1664/ 648-1730/ 895) -38.2 W42-W56 S05-N06
  

    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