Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1150 1792 (N56E03 L= 93)  1350    287        1 (1031/1762-1296/1823)  -1.9 E16-W14 N54-N57
      2  477 1607 (N30E53 L= 42)  2288    353        4 ( 380/1522- 564/1670)  21.8 E60-E43 N24-N35
      3 1214 1572 (N38W06 L=102)   844    184        0 (1132/1553-1305/1595)   8.7 W00-W13 N36-N40
      4  279 1515 (N21E70 L= 25)  1054    108        3 ( 254/1469- 303/1565) -63.4 E75-E66 N18-N24
      5  379 1456 (N19E54 L= 42)   630    112        1 ( 360/1405- 403/1500) -74.1 E56-E49 N15-N22
      6 1747 1343 (N29W52 L=147)  3899    395        8 (1540/1281-1906/1416)  -3.8 W32-W77 N25-N31
      7  252 1328 (N09E62 L= 34)   456     81        0 ( 239/1283- 268/1368) -80.5 E63-E59 N06-N12
      8  183 1213 (N02E66 L= 29)  1762    176        1 ( 136/1131- 215/1269) -26.6 E76-E61 S03-N05
      9  772 1045 (S01E16 L= 80)   576    217        1 ( 749/ 947- 792/1141) -84.8 E17-E13 S07-N04
     10 1885 1106 (N15W66 L=161)   646     65        2 (1867/1058-1907/1138)  78.7 W63-W70 N12-N17
     11  468 1003 (S07E35 L= 60)   874    260        1 ( 407/ 896- 533/1121)  70.3 E39-E31 S14-N00
     12 1069 1006 (N00W03 L= 98)   656    166        1 (1020/ 947-1100/1087)  69.4 W00-W04 S03-N05
     13 1325  661 (S18W24 L=119)   487    192        1 (1236/ 632-1392/ 706)  21.8 W17-W27 S20-S14
     14 1409  562 (S23W33 L=128)   624    178        1 (1331/ 523-1475/ 614)  45.0 W28-W36 S26-S19
     15 1126  390 (S39W18 L=113)   672     84        2 (1082/ 366-1172/ 416)  33.7 W14-W20 S41-S36
  

    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