Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  935 1657 (N48E01 L= 50)   355     54        1 ( 916/1620- 955/1687) -90.0 E02-W01 N45-N50
      2 1526 1642 (N39W53 L=103)   636     89        2 (1480/1624-1577/1659)   0.0 W47-W60 N37-N40
      3 1234 1379 (N25W17 L= 68)   242    104        0 (1207/1334-1267/1418) -71.6 W16-W18 N22-N28
      4 1038 1281 (N21W03 L= 54)   213    123        0 ( 996/1245-1094/1298)   9.5 W00-W06 N18-N21
      5 1055 1208 (N16W03 L= 54)   201     94        2 (1030/1166-1077/1240)  63.4 W01-W05 N13-N17
      6  355 1187 (N19E47 L=  4)   287     62        1 ( 342/1156- 370/1222)  76.0 E47-E45 N16-N20
      7  649  991 (N05E24 L= 27)   461    143        0 ( 587/ 963- 714/1027)  18.4 E28-E19 N03-N07
      8  890  948 (N01E09 L= 42)   288    102        0 ( 860/ 913- 928/ 992)  36.9 E10-E06 N00-N03
      9 1666  890 (S09W42 L= 93)   732    176        2 (1620/ 818-1710/ 959) -73.3 W38-W46 S14-S04
     10  166  813 (S05E70 L=340)   959    117        4 ( 145/ 761- 190/ 850)  59.0 E74-E65 S07-S02
     11 1147  667 (S18W05 L= 56)   281    162        0 (1084/ 633-1175/ 724)  33.7 W00-W06 S20-S14
     12 1685  657 (S25W46 L= 97)   495    107        0 (1655/ 614-1713/ 700)  51.3 W43-W48 S27-S22
     13 1782  648 (S27W58 L=109)   886     98        1 (1759/ 595-1802/ 691)  90.0 W54-W61 S31-S24
     14  695  517 (S25E27 L= 23)   377     88        1 ( 661/ 495- 747/ 548)  14.0 E30-E22 S26-S23
     15 1153  526 (S28W04 L= 55)   365    166        2 (1072/ 509-1227/ 546)   0.0 E01-W09 S28-S26
     16  418  525 (S24E51 L=360)   482     54        2 ( 387/ 502- 454/ 543)   0.0 E54-E46 S25-S22
     17 1387  476 (S34W22 L= 73)   535    114        1 (1337/ 460-1447/ 495)   0.0 W18-W27 S35-S32
     18  687  390 (S35E33 L= 18)  1356    412        2 ( 544/ 354- 864/ 446)  -8.7 E44-E18 S37-S29
     19  505  299 (S42E61 L=350)   757     53        2 ( 492/ 266- 528/ 328)  31.0 E68-E55 S45-S39
  

    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