Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1151 1792 (N56E02 L= 93)  1351    278        2 (1030/1761-1292/1822)   0.0 E16-W13 N54-N57
      2  491 1619 (N31E52 L= 44)  1665    288        2 ( 412/1527- 546/1671) -51.3 E60-E44 N25-N35
      3  385 1498 (N22E55 L= 41)  1166    233        1 ( 358/1404- 414/1604) -57.3 E61-E49 N15-N29
      4 1211 1572 (N38W06 L=102)   910    184        1 (1126/1535-1306/1596)   8.7 W00-W13 N35-N40
      5  268 1440 (N16E66 L= 30)  1967    323        4 ( 236/1285- 303/1568) -59.9 E76-E60 N06-N25
      6 1741 1345 (N29W51 L=147)  3965    408       10 (1536/1279-1899/1416)  -3.9 W31-W75 N25-N31
      7  180 1212 (N02E67 L= 29)  1597    175        2 ( 134/1131- 202/1270) -30.3 E77-E62 S03-N05
      8  763 1042 (S01E16 L= 80)   597    212        1 ( 738/ 949- 786/1144) -84.8 E18-E14 S07-N04
      9 1882 1105 (N15W66 L=161)   635     66        2 (1862/1062-1904/1135)  68.2 W62-W69 N12-N17
     10  463 1006 (S07E36 L= 60)   788    268        1 ( 403/ 900- 525/1127)  69.0 E40-E32 S13-N00
     11 1057  994 (S01W02 L= 98)   514    138        0 (1002/ 946-1092/1045)  63.4 W00-W04 S04-N02
     12 1316  660 (S18W23 L=119)   450    193        0 (1234/ 633-1381/ 705)  24.0 W17-W27 S20-S14
     13 1401  564 (S23W32 L=128)   581    158        0 (1337/ 528-1470/ 615)  45.0 W28-W35 S26-S19
     14 1123  392 (S39W17 L=113)   607     77        1 (1082/ 370-1169/ 416)  26.6 W14-W20 S41-S37
  

    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