Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  608 1624 (N46E34 L=306)   337     85        1 ( 567/1605- 649/1639)   8.1 E37-E30 N44-N46
      2 1255 1623 (N43W23 L=  2)   256    102        0 (1217/1603-1302/1634)   0.0 W19-W26 N41-N43
      3 1687 1548 (N33W57 L= 37)   702    130        1 (1639/1514-1732/1577) -39.8 W53-W61 N30-N35
      4  538 1495 (N36E36 L=304)  1621    354        3 ( 429/1411- 639/1547) -20.9 E47-E26 N30-N39
      5 1625 1434 (N26W47 L= 26)   404     93        0 (1593/1404-1669/1455) -31.0 W44-W50 N24-N27
      6  936 1372 (N27E05 L=335)   833    312        2 ( 770/1331-1068/1417) -16.7 E16-W04 N23-N29
      7 1816 1246 (N13W61 L= 41)   934    222        1 (1753/1175-1874/1295) -36.9 W54-W67 N07-N16
      8 1204 1230 (N16W12 L=352)   675    165        2 (1140/1166-1255/1281) -40.6 W08-W15 N12-N19
      9  489 1179 (N15E35 L=304)   414    169        0 ( 463/1102- 516/1258) -73.3 E37-E33 N10-N20
     10 1617  873 (S08W39 L= 19)   724    193        0 (1552/ 824-1684/ 942) -36.0 W33-W44 S11-S03
     11  278  910 (S02E54 L=286)   482    106        1 ( 241/ 889- 308/ 939)  18.4 E57-E50 S02-N00
     12 1204  781 (S11W10 L=350)   244     77        0 (1187/ 748-1222/ 831)  68.2 W09-W11 S13-S08
     13 1327  549 (S28W19 L=359)  2097    450        3 (1152/ 425-1500/ 691)  34.8 W06-W30 S36-S18
     14 1040  622 (S21E01 L=339)   512    140        1 ( 970/ 575-1100/ 666)  35.5 E05-W03 S24-S18
  

    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