Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1572 1603 (N21W55 L=237)   821    220        0 (1502/1572-1666/1637) -32.5 W49-W61 N16-N24
      2 1133 1539 (N30W22 L=204)   257    113        0 (1078/1500-1167/1565) -63.4 W19-W23 N27-N33
      3 1685 1513 (N13W59 L=241)   558     68        2 (1646/1490-1722/1533)  -6.3 W54-W63 N11-N13
      4 1155 1441 (N24W19 L=201)   278    121        0 (1091/1430-1214/1456) -33.7 W15-W22 N22-N26
      5 1534 1374 (N10W40 L=222)   249     24        0 (1508/1356-1556/1392) -33.7 W38-W41 N08-N11
      6 1787 1323 (S00W58 L=240)   422     55        1 (1766/1289-1807/1348)  11.3 W55-W61 S01-N01
      7  991 1278 (N19W05 L=187)   293     71        1 ( 955/1253-1021/1302) -45.0 W02-W07 N17-N20
      8  839 1242 (N21E05 L=177)   192     60        0 ( 806/1216- 870/1264)  11.3 E07-E02 N20-N21
      9 1673 1152 (S06W42 L=224)   530    128        0 (1607/1124-1729/1182) -40.6 W37-W46 S08-S02
     10  727 1127 (N17E14 L=167)   252     98        0 ( 712/1092- 749/1180)  45.0 E15-E11 N15-N19
     11  501 1146 (N24E29 L=153)   220     70        0 ( 475/1121- 532/1175) -45.0 E30-E26 N21-N26
     12 1711  796 (S27W38 L=220)  5319    796        7 (1493/ 514-1851/1118)  33.0 W16-W57 S40-S11
     13 1207 1040 (N01W10 L=192)   607    110        2 (1158/ 982-1240/1079) -78.7 W08-W12 S02-N03
     14 1413  991 (S07W21 L=203)   749    267        1 (1324/ 919-1494/1055) -33.7 W16-W26 S11-S01
     15  180  894 (N16E63 L=119)  5641    413       13 ( 123/ 721- 250/1048)  87.1 E73-E53 N05-N25
     16 1602  985 (S13W33 L=215)   258     41        2 (1573/ 971-1628/1006) -14.0 W30-W34 S14-S11
     17 1550  862 (S18W27 L=208)   209     56        0 (1522/ 840-1567/ 890)  14.0 W24-W28 S19-S16
     18 1365  841 (S14W15 L=196)   586    152        1 (1320/ 777-1427/ 879)  14.0 W10-W18 S17-S12
     19  594  723 (S02E32 L=149)  1189    288        0 ( 498/ 612- 660/ 821) -81.9 E36-E29 S09-N05
     20 1150  784 (S12W01 L=183)   206     65        0 (1120/ 757-1177/ 819) -76.0 W00-W02 S13-S09
     21 1108  780 (S11E02 L=180)   234    104        0 (1078/ 737-1127/ 815) -90.0 E02-W00 S13-S08
     22 1343  579 (S29W07 L=189)   326    107        0 (1328/ 540-1367/ 640)  74.1 W05-W08 S32-S25
     23 1072  600 (S20E08 L=173)   414    129        1 (1028/ 576-1136/ 636)  -8.1 E10-E03 S21-S18
     24  305  553 (S06E63 L=119)  1303    179        3 ( 244/ 528- 391/ 588)  -6.7 E70-E52 S07-S02
     25  534  454 (S16E48 L=134)  1776    342        6 ( 435/ 346- 651/ 569)  19.7 E63-E35 S21-S11
     26  799  409 (S25E32 L=150)  2117    468        4 ( 595/ 284- 966/ 513)   7.7 E54-E17 S28-S22
     27  320  449 (S12E69 L=112)  1837    119        4 ( 286/ 393- 352/ 511)  29.7 E79-E61 S16-S08
  

    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