Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1241 1812 (N50W50 L=164)   414     77        0 (1204/1787-1280/1835)   0.0 W44-W57 N48-N50
      2 1006 1532 (N38W12 L=126)  1188    312        2 ( 975/1381-1048/1658)  50.5 W05-W20 N28-N45
      3 1235 1622 (N37W32 L=146)   399     87        1 (1197/1594-1283/1639)  -8.1 W29-W36 N35-N38
      4 1450 1601 (N30W46 L=160)   643    113        2 (1397/1573-1508/1624)  -5.2 W41-W52 N28-N31
      5 1629 1496 (N19W54 L=168)   566    128        1 (1556/1465-1682/1520) -29.1 W49-W58 N15-N22
      6 1651 1408 (N13W51 L=165)   319     59        0 (1628/1377-1671/1429) -90.0 W50-W53 N11-N15
      7 1084 1297 (N21W10 L=123)   695    159        2 (1026/1232-1149/1344) -63.4 W06-W12 N16-N24
      8  811 1240 (N24E08 L=105)   198     92        0 ( 779/1202- 843/1272) -68.2 E09-E06 N21-N26
      9  152 1169 (N30E70 L= 44)   579     44        2 ( 136/1145- 167/1194)  45.0 E73-E67 N28-N31
     10  185 1128 (N27E63 L= 50)  1199    132        0 ( 155/1074- 213/1194)  49.4 E67-E59 N24-N31
     11  876 1001 (N09E09 L=105)   412    195        1 ( 785/ 958- 948/1031)   5.2 E15-E04 N07-N09
     12 1809  828 (S24W51 L=164)  2339    339        2 (1725/ 679-1864/ 977)  47.0 W41-W58 S31-S16
     13  269  906 (N13E54 L= 59)   978    270        1 ( 220/ 839- 314/ 958)  28.6 E60-E49 N09-N15
     14 1166  932 (S01W06 L=120)   184     72        1 (1125/ 918-1199/ 949)   0.0 W03-W08 S01-N00
     15  723  771 (S02E23 L= 91)   315    127        0 ( 709/ 713- 736/ 839)  56.3 E25-E20 S04-N02
     16 1567  748 (S22W28 L=142)   459    169        0 (1493/ 711-1604/ 778)   0.0 W22-W31 S23-S19
     17 1393  748 (S17W16 L=130)   280     60        1 (1372/ 715-1425/ 774)  14.0 W14-W18 S18-S15
     18 1144  658 (S17E01 L=113)   333    118        1 (1117/ 601-1182/ 700) -90.0 E02-W00 S21-S13
     19 1260  682 (S18W07 L=120)   320     57        1 (1223/ 658-1289/ 700) -26.6 W04-W08 S19-S16
     20 1092  616 (S18E05 L=109)   262    104        0 (1062/ 578-1131/ 659) -71.6 E06-E03 S21-S15
     21  543  463 (S18E45 L= 68)   714    140        1 ( 488/ 418- 594/ 514)  17.1 E52-E39 S20-S14
     22 1089  337 (S38E14 L=100)  4205    666       10 ( 824/ 222-1335/ 467)   5.1 E39-W06 S42-S32
     23  442  430 (S18E57 L= 57)   439     49        0 ( 412/ 414- 474/ 448) -26.6 E59-E54 S19-S16
  

    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