Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1554 1650 (N30W52 L= 92)  1259    151        2 (1524/1574-1587/1725)  54.0 W48-W58 N24-N35
      2 1299 1594 (N30W28 L= 69)   653    144        1 (1223/1572-1369/1608) -16.7 W23-W33 N28-N32
      3 1689 1528 (N20W57 L= 97)   427     55        0 (1657/1505-1716/1546) -36.9 W53-W59 N18-N21
      4 1795 1477 (N16W66 L=106)   634    101        1 (1768/1417-1816/1511)  45.0 W63-W70 N12-N17
      5 1353 1337 (N14W24 L= 65)   221     79        0 (1308/1320-1390/1354) -11.3 W21-W26 N12-N15
      6  748 1209 (N15E14 L= 26)   397    127        0 ( 704/1158- 786/1259) -60.3 E16-E11 N11-N18
      7 1707 1103 (S05W45 L= 85)   312     72        2 (1672/1080-1735/1132)  18.4 W41-W47 S05-S03
      8 1447  988 (S08W25 L= 65)   944    344        1 (1368/ 848-1488/1120) -82.4 W21-W27 S15-N00
      9 1289 1036 (S03W16 L= 56)   606    185        1 (1260/ 958-1345/1105)  49.4 W13-W19 S07-N00
     10  846  928 (S03E12 L= 29)  1644    399        6 ( 709/ 740- 937/1041) -63.4 E18-E08 S15-N04
     11 1638  995 (S10W38 L= 78)   702    155        4 (1574/ 953-1711/1034) -10.3 W33-W44 S12-S06
     12  723  815 (S08E21 L= 20)   279    110        1 ( 676/ 781- 745/ 860)  31.0 E23-E18 S09-S05
     13  495  827 (S04E35 L=  5)   212     84        0 ( 471/ 788- 524/ 857)  38.7 E37-E32 S06-S02
     14  193  716 (S07E66 L=334)   881     94        4 ( 157/ 682- 228/ 751)  15.3 E72-E61 S08-S04
     15  956  514 (S30E13 L= 28)  2481    487        8 ( 847/ 344-1016/ 735)  52.0 E25-E07 S40-S16
     16 1370  663 (S26W17 L= 57)  1170    275        2 (1248/ 612-1482/ 729)  13.2 W08-W25 S28-S23
     17  409  661 (S13E46 L=354)  1331    277        2 ( 308/ 588- 535/ 714) -19.4 E53-E36 S17-S08
     18  408  486 (S23E54 L=346)  2920    369        6 ( 296/ 400- 564/ 606)  11.8 E79-E36 S27-S17
     19  709  295 (S41E40 L=360)   705     90        2 ( 668/ 274- 760/ 319)   0.0 E44-E34 S43-S39
  

    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