Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1184 1649 (N44W23 L=288)   410     77        1 (1133/1631-1221/1673)  -8.1 W19-W26 N42-N45
      2 1401 1505 (N30W34 L=299)   309     59        2 (1375/1479-1424/1534) -90.0 W32-W35 N28-N32
      3 1635 1395 (N19W48 L=313)   430     78        1 (1598/1368-1671/1432) -51.3 W46-W51 N17-N22
      4 1757 1241 (N08W55 L=320)  1638    310        7 (1716/1137-1796/1315) -79.7 W51-W59 N01-N12
      5  390 1136 (N18E42 L=222)  1875    455        4 ( 266/1044- 511/1269) -35.5 E54-E32 N11-N27
      6  243 1026 (N12E56 L=208)   429    109        2 ( 211/ 983- 264/1056) -38.7 E59-E54 N09-N13
      7 1743 1017 (S05W49 L=314)   334     93        3 (1722/ 979-1771/1053) -68.2 W47-W51 S07-S02
      8 1441  696 (S20W23 L=288)  1775    394        6 (1307/ 565-1534/ 852)  43.2 W13-W30 S27-S11
      9  452  734 (S07E41 L=223)   860    226        3 ( 408/ 687- 500/ 791) -71.6 E44-E38 S09-S03
     10  769  650 (S15E21 L=244)   566    212        2 ( 680/ 620- 862/ 690)   8.7 E27-E14 S16-S12
     11  537  644 (S13E37 L=228)   416     91        1 ( 507/ 602- 558/ 679)  68.2 E38-E34 S15-S10
     12  320  571 (S17E59 L=206)   654     92        0 ( 292/ 515- 355/ 602) -63.4 E60-E56 S21-S14
     13  413  512 (S21E52 L=213)   366     51        1 ( 398/ 490- 429/ 534) -90.0 E53-E49 S22-S19
  

    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