Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1205 1781 (N56W04 L= 86)   951    170        0 (1117/1760-1282/1806)   0.0 E05-W13 N54-N57
      2  562 1587 (N30E43 L= 39)  1329    212        0 ( 508/1495- 643/1643)  80.5 E46-E38 N23-N35
      3  674 1566 (N30E33 L= 49)   739    150        1 ( 651/1481- 709/1629) -63.4 E37-E30 N24-N34
      4 1382 1541 (N38W20 L=102)   779    161        0 (1294/1514-1452/1562)  17.1 W13-W26 N36-N40
      5  370 1500 (N22E57 L= 25)   957    129        1 ( 336/1438- 410/1557) -63.4 E61-E53 N17-N25
      6 1780 1355 (N30W57 L=139)  1644    222        1 (1668/1326-1873/1400)  -2.0 W44-W73 N27-N31
      7  288 1202 (N03E54 L= 28)   833    168        2 ( 228/1130- 325/1246) -24.0 E60-E48 S01-N05
      8  670  974 (S06E21 L= 61)   725    194        0 ( 609/ 894- 725/1055)  61.4 E24-E18 S11-N00
      9  994  993 (S01E01 L= 81)   293    105        0 ( 982/ 943-1009/1047) -68.2 E02-W00 S04-N01
     10 1280  968 (N00W16 L= 98)   795    212        1 (1200/ 881-1321/1041)  66.0 W12-W18 S05-N04
     11 1505  644 (S17W37 L=119)   739    261        2 (1424/ 600-1562/ 694)  24.0 W31-W40 S20-S13
     12 1808  644 (S14W67 L=149)   973    100        2 (1785/ 593-1827/ 693) -54.5 W63-W72 S17-S10
     13 1539  517 (S25W45 L=127)   733    188        1 (1457/ 479-1617/ 557)  35.0 W39-W49 S28-S21
     14 1289  347 (S40W32 L=114)   941    128        2 (1238/ 322-1348/ 388)  20.6 W28-W37 S42-S37
  

    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