Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1465 1663 (N28W53 L=239)  1010    191        0 (1377/1633-1547/1688) -41.6 W48-W59 N23-N32
      2 1114 1659 (N40W29 L=214)   287     70        0 (1077/1641-1150/1675)  -8.1 W25-W32 N38-N40
      3 1515 1528 (N19W47 L=233)  1180    338        2 (1367/1510-1675/1560) -29.7 W37-W60 N12-N25
      4 1201 1421 (N23W22 L=207)   501    110        3 (1136/1400-1250/1438) -15.9 W18-W25 N20-N25
      5  367 1180 (N31E41 L=144)   418    139        0 ( 333/1123- 387/1233)  56.3 E44-E38 N28-N34
      6  619 1065 (N18E23 L=162)   555    203        1 ( 540/1038- 725/1092) -17.1 E28-E15 N16-N20
      7 1853  981 (S22W56 L=241)   527     65        0 (1815/ 965-1892/ 995) -11.3 W51-W61 S23-S19
      8 1612  853 (S20W31 L=216)   479    177        0 (1582/ 772-1657/ 921)  36.9 W27-W35 S24-S17
      9  462  864 (N11E38 L=147)   279     54        1 ( 440/ 838- 489/ 899)  26.6 E40-E35 N09-N12
     10 1262  819 (S12W08 L=193)   515    169        2 (1222/ 738-1299/ 888) -90.0 W06-W09 S17-S06
     11  161  794 (N12E72 L=113)  2891    112        2 ( 127/ 741- 195/ 857) -66.8 E81-E66 N08-N15
     12  444  803 (N07E41 L=144)   412     64        3 ( 411/ 784- 481/ 828) -21.8 E43-E38 N06-N09
     13  588  339 (S24E53 L=132)  1130    184        1 ( 553/ 263- 627/ 428)  55.3 E58-E48 S29-S16
     14 1473  352 (S52W11 L=197)  1346    150        1 (1399/ 327-1542/ 393)  -7.1 W03-W19 S55-S48
  

    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