Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1099 1672 (N48W10 L=178)  1593    308        2 ( 973/1634-1231/1707) -10.3 E01-W21 N43-N51
      2 1513 1644 (N42W49 L=217)   379     76        0 (1476/1624-1548/1663) -31.0 W45-W52 N40-N43
      3  389 1567 (N41E58 L=110)   481    103        2 ( 352/1551- 441/1584)   4.4 E65-E51 N39-N41
      4 1368 1503 (N33W28 L=196)   256     55        1 (1342/1476-1396/1527) -33.7 W26-W30 N31-N34
      5  394 1328 (N24E46 L=122)   360    113        0 ( 352/1295- 433/1368)  33.7 E49-E42 N22-N26
      6  711 1296 (N22E20 L=148)   640    202        2 ( 642/1245- 766/1340) -14.0 E24-E16 N18-N24
      7 1425 1265 (N17W27 L=195)   485    143        0 (1371/1217-1467/1319) -50.2 W24-W29 N13-N20
      8  970 1130 (N11E03 L=165)   264    123        1 ( 931/1102-1027/1154)  11.3 E05-W00 N09-N12
      9 1541  986 (S01W33 L=201)   222     50        1 (1515/ 971-1567/1001)  14.0 W31-W35 S01-N00
     10 1266  924 (S03W15 L=182)   699    278        1 (1155/ 832-1325/ 990) -39.3 W07-W18 S08-N01
     11 1663  894 (S07W43 L=210)   483     89        3 (1636/ 861-1687/ 941)  63.4 W40-W44 S09-S04
     12  386  753 (S11E45 L=122)  1047    249        5 ( 347/ 639- 433/ 866)  54.5 E51-E39 S18-S04
     13  881  821 (S08E10 L=158)   204     73        0 ( 863/ 785- 902/ 855) -63.4 E10-E08 S10-S05
     14 1707  771 (S15W48 L=215)   668    129        1 (1657/ 737-1738/ 826)  39.8 W43-W50 S17-S11
     15  948  702 (S16E06 L=162)   857    246        4 ( 811/ 651-1036/ 735)  -8.1 E14-W00 S18-S13
     16 1289  576 (S26W16 L=184)  1833    409        6 (1152/ 411-1412/ 678)  46.6 W07-W24 S37-S19
     17 1669  604 (S26W48 L=215)   918    188        0 (1612/ 536-1723/ 673)  48.8 W43-W51 S30-S21
     18 1041  614 (S22E00 L=167)   452    111        1 ( 984/ 593-1089/ 634) -18.4 E04-W02 S23-S20
     19  519  311 (S45E55 L=113)   598     51        2 ( 490/ 294- 547/ 330)  -9.5 E58-E51 S46-S42
     20 1124  239 (S53W05 L=173)   539     83        1 (1105/ 210-1147/ 277)  60.3 W03-W07 S56-S49
     21 1235  216 (S57W19 L=186)   712     75        1 (1202/ 187-1264/ 242) -41.2 W13-W22 S60-S53
     22 1309  187 (S62W32 L=200)  1099     99        1 (1294/ 144-1329/ 237) -38.3 W25-W50 S70-S55
  

    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