Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  802 1441 (N13E24 L= 99)   708    201        2 ( 785/1354- 837/1533) -55.0 E27-E19 N08-N18
      2  255 1180 (S14E56 L= 68)   968    186        3 ( 228/1087- 289/1269) -84.8 E58-E52 S19-S08
      3  683 1202 (S04E24 L= 99)   258     40        0 ( 665/1174- 707/1226)  56.3 E25-E22 S05-S02
      4 1311 1105 (N07W14 L=137)   246     82        1 (1268/1080-1352/1125)  45.0 W11-W16 N05-N09
      5 1654 1033 (N13W38 L=161)   728    201        1 (1581/ 946-1687/1122) -30.3 W30-W42 N09-N16
      6 1872  955 (N17W60 L=184)   515     99        3 (1850/ 921-1892/ 986)  90.0 W57-W63 N14-N18
      7  635  906 (S21E20 L=103)   451    207        0 ( 544/ 868- 706/ 959)  45.0 E25-E16 S25-S16
      8  886  821 (S20E02 L=121)   270    103        0 ( 824/ 796- 933/ 843)  38.7 E05-W00 S21-S17
      9 1257  616 (S21W26 L=149)   573    162        2 (1183/ 576-1346/ 658)  48.8 W22-W29 S25-S16
     10 1005  617 (S28W11 L=134)   680    166        3 ( 927/ 589-1076/ 647)  36.9 W06-W14 S31-S25
     11 1601  510 (S16W54 L=178)  2332    553        4 (1475/ 435-1715/ 614)  53.7 W45-W64 S22-S07
     12 1465  332 (S30W55 L=178)   403     73        1 (1435/ 317-1494/ 348)  36.9 W52-W57 S31-S28
     13 1228  240 (S44W47 L=170)   754    114        0 (1193/ 217-1273/ 276)  18.4 W42-W50 S46-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