Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  977 1647 (N30E18 L=291)   898    249        0 ( 918/1551-1043/1742) -33.7 E25-E10 N24-N36
      2  807 1679 (N29E30 L=278)   614    177        1 ( 761/1620- 871/1736)  84.3 E34-E27 N24-N34
      3  897 1651 (N29E23 L=285)   456     88        3 ( 857/1620- 936/1682)  21.8 E25-E20 N26-N31
      4 1440 1622 (N40W16 L=324)   686    156        1 (1373/1573-1501/1660) -14.0 W09-W21 N38-N42
      5  396 1598 (N17E59 L=249)  1112    136        2 ( 369/1550- 430/1652) -35.0 E65-E53 N13-N21
      6 1691 1507 (N40W40 L=348)   619     99        0 (1642/1473-1730/1533)  -5.7 W34-W44 N38-N41
      7  971 1347 (N11E10 L=299)   895    214        1 ( 930/1264-1030/1444)  85.2 E11-E07 N05-N17
      8 1148 1326 (N13W01 L=309)   307     50        0 (1126/1289-1168/1352) -56.3 W00-W02 N10-N14
      9 1354 1185 (N09W16 L=324)   687    218        0 (1288/1107-1399/1270)  74.7 W13-W17 N03-N14
     10 1020 1152 (N00E03 L=305)   472    165        0 ( 952/1130-1095/1193)  -7.1 E07-W01 N00-N01
     11 1583 1128 (N11W32 L=340)   275     78        0 (1555/1103-1617/1157) -21.8 W29-W34 N10-N12
     12 1833 1104 (N17W54 L=  2)   532     87        0 (1794/1079-1871/1122)  24.0 W49-W58 N14-N18
     13 1744 1052 (N11W46 L=354)   534     79        1 (1727/1007-1765/1087) -53.1 W43-W47 N08-N13
     14 1839  957 (N09W57 L=  5)  1380    185        6 (1764/ 878-1878/1029) -53.1 W49-W63 N04-N13
     15  981 1002 (S09E02 L=306)   178     75        0 ( 946/ 988-1017/1018)   0.0 E04-W00 S09-S08
     16  828  961 (S14E10 L=298)   275    132        0 ( 775/ 926- 884/ 988)  50.2 E12-E07 S17-S11
     17 1401  896 (S06W25 L=333)   252     97        1 (1367/ 861-1441/ 919)  45.0 W23-W27 S08-S04
     18 1500  873 (S05W32 L=340)   246     64        0 (1467/ 845-1523/ 894)   0.0 W29-W33 S06-S04
     19 1061  799 (S19W07 L=315)   649    195        1 ( 997/ 721-1123/ 862)  63.4 W04-W09 S24-S14
     20 1204  647 (S25W20 L=328)   264    103        0 (1164/ 618-1245/ 689)  68.2 W17-W21 S27-S21
     21 1121  461 (S38W21 L=330)   349     84        0 (1075/ 450-1173/ 477)  15.9 W18-W25 S39-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