Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  860 1551 (N42E03 L=156)   358     96        1 ( 822/1525- 911/1576) -45.0 E06-W01 N40-N45
      2 1729 1482 (N20W64 L=223)  3034    427        5 (1629/1416-1826/1535) -21.4 W57-W73 N13-N25
      3 1337 1318 (N19W25 L=184)   664    217        4 (1266/1258-1418/1358)  -5.2 W22-W29 N14-N22
      4 1600 1291 (N12W43 L=202)   314    120        1 (1548/1272-1640/1319)  -7.1 W40-W45 N10-N15
      5  361 1271 (N30E47 L=112)   334     84        0 ( 326/1258- 394/1287)   8.1 E51-E43 N29-N31
      6  766 1141 (N17E14 L=145)   412     92        2 ( 739/1085- 791/1195) -81.9 E16-E13 N13-N21
      7 1870 1082 (S06W64 L=223)   585    117        1 (1846/1044-1894/1128)  33.7 W62-W68 S09-S03
      8 1226 1038 (N04W12 L=171)   270     87        2 (1177/1023-1266/1057) -21.8 W10-W15 N02-N06
      9 1802  933 (S14W55 L=214)  1198    261        5 (1746/ 858-1857/ 988)  22.6 W49-W63 S20-S09
     10 1268  914 (S04W13 L=172)   488    122        1 (1200/ 894-1320/ 947)  -7.1 W09-W16 S06-S01
     11 1354  766 (S15W17 L=176)   873    227        2 (1316/ 671-1392/ 886)  65.2 W16-W19 S21-S07
     12 1680  769 (S21W43 L=202)   454    102        3 (1644/ 745-1722/ 800)   0.0 W39-W47 S24-S18
     13  930  555 (S21E14 L=145)   550    233        0 ( 915/ 456- 945/ 657)  66.8 E13-E16 S29-S14
     14 1205  501 (S30W04 L=163)  1024    189        1 (1112/ 449-1270/ 569)  21.0 E02-W08 S35-S23
     15  466  449 (S23E54 L=105)   826    174        1 ( 418/ 416- 507/ 491)  13.0 E56-E53 S26-S20
  

    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