Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  475 1556 (N15E49 L=222)  1168    232        6 ( 423/1463- 528/1621) -42.3 E57-E43 N08-N18
      2 1307 1544 (N31W06 L=277)   439    139        0 (1275/1485-1349/1610)  78.7 W04-W08 N26-N36
      3 1472 1476 (N31W19 L=290)  1232    375        0 (1375/1321-1571/1604) -41.4 W10-W27 N22-N37
      4  577 1539 (N15E40 L=231)   426     74        1 ( 542/1516- 610/1568)  45.0 E42-E38 N13-N17
      5  893 1460 (N16E17 L=254)   726    169        2 ( 832/1430- 975/1506)  -5.2 E22-E11 N14-N17
      6 1543 1110 (N10W29 L=300)  1410    328        5 (1510/ 958-1587/1251) -76.8 W26-W32 N01-N18
      7 1669 1111 (N13W38 L=309)   252     62        1 (1652/1079-1686/1143)  90.0 W36-W39 N11-N15
      8 1800  964 (N08W53 L=324)  1224    260        0 (1713/ 912-1854/1034)  38.7 W43-W57 N04-N13
      9 1600  926 (N01W37 L=308)   330     80        1 (1564/ 894-1637/ 948)   0.0 W34-W40 N00-N01
     10 1298  715 (S18W24 L=295)   247     75        0 (1259/ 702-1335/ 728)  26.6 W21-W25 S19-S16
     11 1559  607 (S18W45 L=316)   665    108        0 (1510/ 570-1609/ 649)  56.3 W42-W47 S20-S14
     12 1693  549 (S17W60 L=331)  1035    202        0 (1631/ 490-1734/ 620)  83.7 W57-W64 S21-S12
     13 1354  466 (S31W38 L=309)   673    119        0 (1298/ 429-1405/ 500)  63.4 W35-W40 S34-S27
     14 1229  429 (S37W31 L=302)   246     19        0 (1211/ 408-1244/ 451) -45.0 W29-W33 S38-S35
     15 1452  308 (S37W59 L=330)   516     39        0 (1424/ 292-1485/ 329)   6.3 W54-W63 S38-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