Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1184 1868 (N59E26 L=193)   641     69        1 (1157/1844-1215/1887)  80.5 E29-E22 N55-N62
      2 1320 1787 (N56E06 L=213)   474     75        3 (1289/1759-1347/1807) -20.6 E09-E01 N53-N59
      3 1026 1570 (N28E16 L=203)  1033    299        0 ( 904/1495-1147/1638)  -5.4 E26-E05 N26-N29
      4  394 1598 (N14E63 L=156)  1158    124        3 ( 350/1558- 442/1628)  45.0 E68-E58 N11-N16
      5 1480 1425 (N32W18 L=237)  1414    240        6 (1409/1332-1543/1523) -31.6 W10-W24 N27-N37
      6  961 1420 (N17E14 L=205)   228    101        2 ( 913/1393- 999/1448)  21.8 E17-E12 N15-N17
      7  355 1351 (S02E53 L=167)   396     57        0 ( 336/1325- 380/1374) -26.6 E54-E50 S03-N00
      8  344 1222 (S09E49 L=170)   914    118        2 ( 300/1164- 388/1266)  54.5 E51-E46 S13-S06
      9 1453 1111 (N12W23 L=242)   656    210        0 (1429/1012-1469/1205) -81.3 W21-W24 N05-N18
     10  216 1070 (S21E59 L=160)   503     81        1 ( 181/1052- 247/1095)  26.6 E63-E55 S22-S18
     11 1656  969 (N10W40 L=259)   256     96        0 (1640/ 922-1683/1006)  80.5 W39-W41 N07-N13
     12  292  840 (S33E49 L=171)   385    108        0 ( 253/ 794- 328/ 873)  37.9 E53-E44 S37-S30
     13 1162  708 (S18W17 L=236)   352    100        1 (1127/ 682-1206/ 740)   0.0 W14-W19 S19-S16
     14  323  647 (S46E47 L=172)   762    189        3 ( 255/ 615- 396/ 683)  17.7 E59-E37 S49-S41
     15 1400  513 (S22W40 L=259)   365     98        1 (1369/ 474-1436/ 555) -80.5 W38-W41 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