Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  943 1840 (N45E31 L= 42)   390     39        1 ( 925/1816- 960/1864) -33.7 E34-E28 N42-N47
      2  527 1751 (N29E59 L= 14)   633     53        2 ( 497/1730- 561/1770)  -6.3 E64-E54 N27-N31
      3 1182 1587 (N30E03 L= 70)   714    113        0 (1143/1542-1230/1634) -35.5 E06-W01 N28-N33
      4  692 1595 (N21E34 L= 39)   392     93        1 ( 657/1554- 724/1633) -35.5 E37-E30 N18-N23
      5 1506 1522 (N35W22 L= 94)  1351    201        3 (1448/1439-1558/1616) -57.5 W16-W26 N29-N41
      6  299 1259 (S06E53 L= 20)   310     40        1 ( 280/1237- 316/1283)  56.3 E54-E51 S06-S03
      7 1697 1234 (N21W39 L=112)   745    113        2 (1644/1202-1752/1265)   0.0 W34-W44 N19-N22
      8 1530 1066 (N06W29 L=102)  1283    408        2 (1503/ 904-1560/1255) -66.0 W24-W34 S02-N17
      9 1780 1158 (N19W47 L=120)   578     86        1 (1755/1121-1803/1189) -53.1 W45-W50 N16-N20
     10  180 1002 (S22E63 L= 10)  2340    335        6 ( 122/ 868- 240/1166)  53.6 E72-E56 S30-S11
     11 1757 1061 (N12W47 L=119)   616    117        0 (1722/1001-1790/1110) -35.5 W42-W50 N09-N14
     12 1670 1032 (N08W40 L=113)   308     77        0 (1645/ 996-1703/1062)  -9.5 W37-W43 N06-N09
     13  309  679 (S41E51 L= 22)   651    161        0 ( 270/ 618- 371/ 723)  31.0 E58-E42 S45-S36
     14 1027  682 (S27W08 L= 81)   287    115        0 ( 973/ 652-1077/ 714) -14.0 W03-W11 S27-S25
     15 1721  637 (S12W57 L=130)   769    143        1 (1674/ 607-1784/ 670)  40.6 W53-W62 S14-S08
     16 1574  610 (S17W46 L=119)   450    109        1 (1549/ 581-1615/ 649) -68.2 W43-W49 S19-S14
     17 1762  595 (S13W64 L=137)   715     93        3 (1739/ 552-1797/ 629)  68.2 W60-W66 S15-S10
     18 1315  586 (S25W29 L=102)   404    115        0 (1263/ 543-1357/ 617)  -6.3 W24-W33 S26-S24
     19 1180  502 (S34W24 L= 97)   283     58        1 (1165/ 470-1205/ 533) -45.0 W21-W25 S36-S32
     20 1598  406 (S28W62 L=135)  3038    382        6 (1437/ 331-1768/ 491)  38.4 W52-W81 S36-S17
     21 1246  449 (S35W31 L=104)   302     66        0 (1210/ 436-1283/ 465)  11.3 W28-W33 S36-S33
     22 1180  326 (S45W34 L=107)   338     83        0 (1156/ 291-1216/ 362) -16.7 W30-W40 S46-S43
  

    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