Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1489 1659 (N32W47 L=115)  1907    274        5 (1357/1598-1585/1716) -40.2 W38-W53 N26-N37
      2 1243 1578 (N30W24 L= 92)   926    207        3 (1215/1484-1295/1661)  45.0 W20-W31 N24-N35
      3 1723 1589 (N23W66 L=134)  1077    108        2 (1672/1552-1780/1621) -26.6 W61-W72 N20-N25
      4 1608 1324 (N09W42 L=110)   718    184        2 (1513/1296-1677/1379)  -4.4 W34-W47 N07-N12
      5 1303 1130 (N02W18 L= 86)   338     98        1 (1251/1117-1356/1144) -18.4 W14-W21 N01-N03
      6  402 1020 (N09E39 L= 29)   286     95        0 ( 360/ 988- 446/1043) -33.7 E42-E36 N06-N10
      7  140 1005 (N12E66 L=  2)  1010    133        0 (  79/ 983- 203/1023)  -5.7 E77-E57 N09-N13
      8 1279  935 (S09W14 L= 81)   664    261        1 (1187/ 883-1323/1010)  14.0 W08-W16 S11-S04
      9  836  932 (S02E12 L= 55)   585    249        1 ( 793/ 827- 922/ 998)  35.0 E16-E06 S07-N00
     10  525  587 (S18E40 L= 28)  6217    944        7 ( 329/ 229- 648/ 944)  54.3 E77-E35 S41-N05
     11 1022  828 (S11E03 L= 65)   553    200        1 ( 991/ 736-1050/ 921)  70.0 E05-E01 S16-S05
     12  323  710 (S08E52 L= 16)  2524    336        8 ( 234/ 609- 441/ 839) -75.1 E59-E45 S15-N00
     13  196  715 (S06E66 L=  2)  1377    130        6 ( 168/ 651- 225/ 777)  30.3 E73-E60 S09-S02
     14  254  596 (S14E65 L=  3)  3570    318        6 ( 208/ 489- 302/ 704)  55.3 E75-E57 S20-S07
     15 1002  593 (S25E08 L= 59)   951    251        1 ( 897/ 519-1100/ 664)  17.4 E16-W00 S28-S21
  

    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