Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  978 1918 (N64W46 L= 37)   514     53        0 ( 955/1889- 993/1939)  19.7 W39-W53 N60-N66
      2  921 1892 (N64W35 L= 26)   430     32        0 ( 904/1867- 936/1912)  40.6 W31-W40 N60-N66
      3  787 1826 (N64W13 L=  3)  1709    253        2 ( 693/1747- 888/1894)   8.1 E02-W33 N59-N67
      4  925 1621 (N42W11 L=  2)  1426    308        0 ( 789/1591-1081/1652) -20.9 W00-W21 N35-N45
      5 1683 1548 (N15W61 L= 51)   579     68        2 (1650/1526-1717/1568)   0.0 W56-W65 N14-N16
      6 1221 1508 (N26W25 L= 16)   403     82        0 (1198/1464-1242/1546)  38.7 W22-W28 N23-N28
      7 1430 1532 (N22W40 L= 30)   303     81        0 (1385/1515-1478/1544) -15.9 W36-W43 N20-N23
      8 1835 1426 (N05W70 L= 61)  2148    154        4 (1776/1357-1876/1477) -45.0 W64-W76 N00-N07
      9  384 1420 (N43E38 L=313)   470     48        0 ( 358/1397- 422/1439)   0.0 E41-E33 N41-N44
     10 1514 1311 (N08W36 L= 27)   708    163        0 (1473/1235-1551/1386) -90.0 W34-W37 N02-N12
     11 1797 1236 (S04W56 L= 46)   336     42        1 (1777/1215-1818/1257)  11.3 W53-W58 S05-S02
     12 1189 1095 (N04W11 L=  1)   476    116        0 (1145/1042-1233/1147) -74.1 W09-W12 N00-N07
     13  154 1023 (N22E64 L=286)  6403    289        7 (  93/ 897- 232/1146)  49.4 E76-E54 N15-N29
     14  273 1071 (N23E50 L=301)   387     61        1 ( 242/1041- 297/1105)  76.0 E52-E47 N21-N25
     15  411  915 (N11E40 L=311)   944    225        2 ( 337/ 857- 486/ 994) -54.0 E44-E35 N06-N17
     16 1185  798 (S12W04 L=354)   512    143        0 (1156/ 732-1214/ 873)  49.4 W00-W06 S15-S08
     17  151  732 (N05E74 L=277)  2427    208        5 ( 119/ 645- 198/ 806) -73.3 E83-E69 N00-N10
     18 1749  593 (S42W44 L= 35)   679    100        1 (1698/ 572-1797/ 617) -25.0 W37-W52 S45-S38
     19  569  536 (S13E41 L=310)   581    161        0 ( 537/ 469- 610/ 605)  31.0 E45-E35 S16-S09
     20 1581  514 (S42W26 L= 16)   489     80        1 (1546/ 484-1623/ 545)   8.1 W22-W30 S43-S40
  

    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