Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  521 1522 (N25E38 L=  2)  1924    413        2 ( 402/1429- 657/1596) -22.6 E49-E25 N19-N30
      2 1048 1469 (N23E00 L= 39)   319     71        1 (1008/1439-1084/1490) -26.6 E02-W02 N21-N24
      3 1288 1428 (N22W15 L= 55)   245     45        1 (1264/1409-1321/1443) -14.0 W13-W17 N20-N22
      4  292 1398 (N17E54 L=345)   381     76        1 ( 264/1383- 319/1411)  -9.5 E57-E51 N16-N18
      5 1040 1226 (N08W00 L= 40)   304     91        0 (1011/1181-1086/1272) -51.3 E01-W03 N05-N10
      6 1799 1159 (N09W53 L= 93)   478    101        1 (1783/1116-1812/1202)  90.0 W51-W54 N06-N11
      7 1121 1174 (N05W05 L= 45)   191     45        0 (1084/1159-1151/1190)  18.4 W03-W06 N04-N06
      8 1882 1102 (N06W63 L=102)  1736    370        5 (1840/1030-1936/1183) -71.6 W57-W71 N01-N10
      9  771 1131 (N01E16 L= 24)   285    109        0 ( 727/1096- 828/1152)  18.4 E18-E12 N00-N02
     10 1800  968 (S03W54 L= 94)   445    104        0 (1767/ 935-1845/ 997)  29.7 W51-W58 S04-N00
     11  670  964 (S09E22 L= 18)   249    101        0 ( 620/ 941- 715/ 989)  26.6 E24-E18 S10-S07
     12  233  898 (S13E56 L=344)  1081    297        3 ( 162/ 821- 286/ 981)  32.7 E64-E50 S17-S08
     13 1826  916 (S06W57 L= 97)  1225    228        4 (1785/ 847-1881/ 970)  45.0 W53-W63 S09-S01
     14 1420  875 (S11W25 L= 65)   287     58        0 (1399/ 837-1438/ 911) -63.4 W23-W26 S13-S09
     15 1871  853 (S09W64 L=103)   766    133        3 (1833/ 818-1899/ 889) -53.1 W58-W68 S10-S06
     16 1846  775 (S14W62 L=102)  3246    578        8 (1770/ 699-1931/ 860)  -5.4 W53-W74 S18-S08
     17 1598  789 (S15W39 L= 78)   296     63        0 (1573/ 756-1623/ 819) -31.0 W36-W41 S16-S13
     18 1642  651 (S23W45 L= 85)  1334    139        5 (1597/ 571-1673/ 773) -85.6 W42-W47 S28-S15
     19  859  653 (S28E09 L= 30)  1434    336        3 ( 727/ 572-1010/ 761)  34.4 E19-W00 S33-S20
     20 1463  722 (S20W30 L= 70)   291     88        1 (1419/ 707-1510/ 741)   9.5 W27-W33 S21-S18
     21  525  657 (S28E33 L=  6)   770    226        0 ( 463/ 588- 591/ 740)  39.8 E39-E27 S32-S22
     22 1841  653 (S21W65 L=105)  1504    246        1 (1800/ 618-1887/ 696)  56.3 W60-W71 S23-S17
     23  270  594 (S32E58 L=342)  1842    341        4 ( 207/ 545- 325/ 642) -54.5 E64-E52 S35-S28
     24  602  486 (S40E31 L=  9)   718    144        1 ( 543/ 447- 659/ 523)  20.0 E36-E25 S42-S36
     25 1163  459 (S39W14 L= 53)   662    119        0 (1115/ 418-1221/ 508)  45.0 W10-W17 S42-S35
     26 1618  443 (S37W51 L= 91)   855     78        0 (1586/ 404-1645/ 481)  78.7 W48-W53 S39-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