Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1242 1837 (N53E06 L=125)   354     62        0 (1218/1815-1284/1852)  38.7 E08-E02 N50-N55
      2  742 1800 (N36E42 L= 89)   824    108        1 ( 704/1771- 796/1842) -12.1 E49-E35 N33-N39
      3  875 1656 (N28E24 L=107)   544     69        1 ( 839/1618- 906/1685)  53.1 E26-E22 N25-N30
      4 1170 1639 (N33E05 L=127)   271    108        1 (1110/1625-1219/1654)  29.7 E08-E01 N31-N35
      5 1279 1605 (N34W03 L=135)   280     56        0 (1252/1583-1303/1627) -14.0 W01-W05 N32-N35
      6  769 1557 (N19E27 L=104)   601    104        1 ( 742/1509- 809/1606) -63.4 E29-E25 N16-N22
      7  701 1428 (N10E27 L=104)   825    183        0 ( 623/1378- 776/1482)  48.8 E31-E24 N05-N14
      8  930 1397 (N12E13 L=118)   321    101        0 ( 893/1347- 963/1436) -31.0 E15-E10 N10-N14
      9  323 1214 (S08E49 L= 82)   873    274        3 ( 286/1125- 366/1335) -72.9 E52-E46 S13-N00
     10 1876 1304 (N31W59 L=191)   613     85        0 (1842/1262-1906/1327)  -6.3 W54-W63 N29-N32
     11 1826 1276 (N27W52 L=183)   356     25        0 (1809/1250-1840/1301) -56.3 W49-W53 N25-N28
     12 1520 1236 (N16W25 L=157)   490    106        0 (1473/1199-1565/1272) -15.9 W21-W28 N14-N17
     13 1036 1212 (N04E03 L=128)   201     90        0 (1016/1171-1068/1252) -36.9 E04-W00 N01-N05
     14 1785 1126 (N16W48 L=179)   401    101        0 (1767/1083-1810/1181)  66.8 W46-W49 N13-N20
     15  121 1159 (S13E72 L= 59)   630     57        1 (  94/1133- 143/1179) -11.3 E78-E68 S14-S11
     16  580 1122 (S09E28 L=103)   568    241        0 ( 499/1064- 661/1172)  33.7 E32-E23 S13-S05
     17 1590 1019 (N05W34 L=165)   651    217        0 (1576/ 917-1603/1128) -63.4 W30-W36 N00-N11
     18 1858 1066 (N15W56 L=187)   440     72        0 (1843/1025-1873/1106) -53.1 W53-W58 N13-N17
     19  917 1055 (S07E07 L=125)   219    129        0 ( 865/1029- 974/1089)  45.0 E09-E04 S09-S04
     20  801  836 (S22E09 L=122)   539    192        2 ( 724/ 801- 866/ 889)  45.0 E14-E06 S24-S17
     21 1293  851 (S11W19 L=151)   182    104        0 (1242/ 819-1332/ 877)   0.0 W15-W22 S12-S10
     22 1150  793 (S17W12 L=144)   215     81        0 (1119/ 777-1191/ 819)   0.0 W09-W14 S18-S16
     23 1618  787 (S07W42 L=173)   229     22        0 (1603/ 766-1634/ 813) -33.7 W40-W43 S07-S05
     24 1587  694 (S13W43 L=174)   561    149        3 (1560/ 637-1619/ 761) -45.0 W39-W46 S15-S09
     25 1668  694 (S10W49 L=180)   564    104        0 (1631/ 656-1701/ 735)  71.6 W46-W51 S13-S07
     26  497  705 (S36E30 L=102)   848    146        1 ( 413/ 681- 565/ 732)   8.7 E37-E24 S37-S33
     27 1158  650 (S25W17 L=148)   444    181        0 (1081/ 626-1245/ 686)   4.8 W10-W22 S26-S23
     28 1572  534 (S22W49 L=181)   820    156        0 (1494/ 510-1645/ 567)  31.0 W43-W53 S24-S17
     29 1412  360 (S36W48 L=180)   628     62        2 (1381/ 336-1447/ 391)   8.1 W45-W52 S37-S34
  

    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