Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1010 1540 (N37W16 L=340)   442    150        1 ( 944/1509-1068/1582)   5.2 W10-W21 N35-N37
      2 1296 1539 (N28W33 L=358)   268     77        0 (1259/1518-1340/1558)  -9.5 W30-W36 N26-N28
      3  814 1504 (N40W01 L=326)   291     52        0 ( 792/1472- 834/1526)  76.0 W00-W02 N38-N42
      4 1758 1324 (N02W56 L= 21)   365     49        0 (1740/1290-1774/1350)  21.8 W53-W58 N00-N02
      5  221 1282 (N41E59 L=265)  1143    149        2 ( 158/1257- 298/1307)  -9.5 E72-E48 N38-N42
      6  733 1253 (N27E11 L=313)  1796    466        6 ( 490/1205- 907/1279) -21.4 E29-E01 N20-N32
      7 1834 1120 (S12W56 L= 21)   951    138        3 (1785/1075-1899/1168) -30.3 W52-W64 S15-S07
      8 1789 1024 (S15W49 L= 14)  1125    219        5 (1756/ 940-1824/1104)  45.0 W44-W54 S19-S11
      9  329  846 (N13E49 L=275)  4148    894        7 ( 221/ 557- 590/1044)  34.1 E60-E26 S05-N23
     10 1717  994 (S14W42 L=  6)   345     90        1 (1680/ 965-1743/1019) -38.7 W38-W43 S16-S12
     11 1552  942 (S12W28 L=353)   743    159        0 (1510/ 874-1586/1005)  32.0 W24-W32 S14-S08
     12  698  896 (N08E22 L=303)   293    115        1 ( 657/ 852- 747/ 930) -56.3 E24-E19 N04-N10
     13 1313  731 (S17W09 L=333)   392    116        0 (1281/ 684-1344/ 777)  38.7 W05-W11 S19-S15
     14 1105  726 (S12E03 L=321)   270     77        0 (1076/ 693-1130/ 753)  26.6 E05-E01 S12-S10
     15 1146  699 (S14E02 L=323)   203     87        0 (1122/ 665-1163/ 737)  45.0 E03-W00 S15-S12
     16 1266  509 (S30W00 L=325)   580    226        0 (1221/ 415-1305/ 603)  48.0 E05-W04 S34-S24
     17  495  464 (S13E51 L=274)   505     87        0 ( 467/ 440- 529/ 502) -76.0 E52-E48 S15-S10
     18  736  394 (S23E37 L=288)  1513    251        7 ( 690/ 263- 803/ 478)  39.5 E48-E30 S31-S17
     19  444  381 (S18E62 L=263)  3805    404        8 ( 336/ 285- 523/ 455) -59.7 E74-E53 S25-S11
     20 1315  382 (S41E01 L=324)   425    100        0 (1287/ 341-1335/ 443)  60.3 E03-W02 S44-S36
     21 1501  302 (S57W14 L=339)   746    100        2 (1455/ 283-1550/ 324) -17.1 W08-W21 S60-S53
     22  743  172 (S40E58 L=267)  1097     80        3 ( 720/ 131- 770/ 206)  18.4 E70-E49 S44-S36
  

    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