Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1651 1428 (N39W32 L=164)  1505    254        3 (1540/1350-1745/1485)  -2.7 W21-W42 N36-N41
      2 1494 1358 (N28W20 L=152)   733    129        2 (1436/1304-1535/1404) -26.6 W15-W23 N25-N29
      3 1354 1339 (N22W11 L=143)   285     96        0 (1327/1289-1375/1388)  90.0 W09-W11 N18-N25
      4  377 1343 (S02E50 L= 82)   585    122        1 ( 342/1293- 402/1378) -23.2 E54-E47 S05-N00
      5  428 1331 (S02E46 L= 86)   521     92        2 ( 406/1287- 464/1360)  90.0 E47-E42 S04-N00
      6 1242 1244 (N14W06 L=138)   270     92        0 (1184/1227-1283/1268)  38.7 W03-W08 N11-N15
      7 1757 1081 (N20W46 L=178)   501     67        2 (1733/1044-1779/1116) -45.0 W44-W48 N17-N22
      8 1528  869 (N01W34 L=166)   433    158        0 (1510/ 797-1545/ 950) -69.4 W31-W35 S03-N05
      9 1218  881 (S07W15 L=147)  1513    464        2 ( 987/ 832-1347/ 937)  23.2 W02-W23 S15-S01
     10 1678  897 (N07W44 L=176)   287     71        2 (1642/ 878-1715/ 908)  18.4 W40-W46 N05-N08
     11  523  685 (S38E24 L=108)   269     49        1 ( 503/ 661- 541/ 713)  63.4 E26-E23 S39-S35
     12 1628  620 (S09W51 L=183)   337     97        0 (1580/ 596-1673/ 638)  33.7 W48-W54 S11-S07
     13 1724  506 (S12W69 L=201)  1222    144        4 (1665/ 470-1784/ 550)  41.6 W64-W74 S15-S07
     14 1489  327 (S29W62 L=194)  1652    168        2 (1431/ 280-1558/ 385)   0.0 W52-W77 S31-S27
  

    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