Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  916 1550 (N28E10 L=224)   241     60        1 ( 898/1514- 932/1582) -78.7 E11-E08 N25-N30
      2  793 1486 (N23E18 L=217)   642    171        1 ( 700/1452- 858/1507)  -9.5 E24-E12 N21-N24
      3  700 1411 (N18E23 L=212)   216     55        0 ( 667/1389- 728/1431) -21.8 E25-E20 N16-N19
      4  589 1366 (N15E30 L=205)   320    101        1 ( 575/1319- 604/1421)  90.0 E30-E28 N11-N18
      5  344 1381 (N15E49 L=185)   299     61        0 ( 329/1349- 359/1409) -63.4 E50-E47 N13-N17
      6 1878 1242 (N15W62 L=297)  2255    394        2 (1790/1131-1966/1355) -24.4 W53-W76 N09-N21
      7  207 1294 (N10E61 L=173)   435     73        1 ( 184/1276- 228/1312)   9.5 E64-E58 N08-N11
      8 1199 1262 (N11W09 L=244)   387     98        1 (1158/1225-1255/1308) -39.8 W06-W12 N08-N13
      9 1580 1214 (N10W35 L=269)   524    149        2 (1511/1192-1647/1240)   0.0 W29-W39 N08-N12
     10  394 1182 (N03E42 L=193)   241     56        1 ( 369/1162- 423/1195)   0.0 E43-E39 N01-N03
     11  445 1064 (S04E37 L=197)   882    186        3 ( 425/ 976- 470/1170) -84.8 E38-E35 S09-N02
     12 1772 1106 (N06W50 L=285)   314    113        2 (1747/1072-1814/1138) -26.6 W48-W54 N03-N07
     13  842 1059 (S03E11 L=223)   222     50        2 ( 804/1042- 871/1079) -14.0 E13-E09 S04-S01
     14 1861  981 (S01W61 L=295)   477     62        1 (1843/ 949-1882/1007)  63.4 W58-W63 S02-N00
     15  156  869 (S15E65 L=170)  1854    346        8 ( 121/ 770- 192/ 971) -90.0 E69-E60 S21-S09
     16 1587  911 (S08W37 L=271)   228     12        0 (1564/ 892-1606/ 926)   0.0 W34-W38 S08-S06
     17 1130  757 (S20W08 L=242)  1125    258        0 (1029/ 662-1273/ 838)  40.6 W02-W16 S26-S14
     18 1778  549 (S27W62 L=296)  1624    266        1 (1696/ 511-1843/ 617)  33.7 W53-W67 S30-S22
     19  946  548 (S34E03 L=232)   214     41        1 ( 927/ 527- 971/ 570) -14.0 E04-W00 S35-S32
     20  875  501 (S38E08 L=226)   251     85        0 ( 834/ 477- 912/ 528)  33.7 E11-E05 S39-S35
  

    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