Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1445 1824 (N37W73 L=255)  1035     66        1 (1420/1797-1463/1860)   0.0 W65-W89 N34-N37
      2 1226 1409 (N21W23 L=205)   880    234        1 (1119/1365-1334/1449)  -7.1 W15-W31 N19-N22
      3 1519 1406 (N12W41 L=223)   358    137        0 (1469/1381-1584/1425) -14.0 W37-W46 N09-N13
      4 1470 1206 (N03W31 L=212)   385     82        0 (1456/1158-1482/1258)  63.4 W28-W32 N00-N06
      5 1909 1070 (S19W66 L=248)  1861    243        3 (1869/ 975-1953/1177)  37.6 W58-W80 S23-S13
      6 1525  954 (S12W27 L=209)   240     86        0 (1496/ 916-1552/ 996)  31.0 W24-W29 S13-S10
      7 1840  757 (S36W53 L=235)   491     45        1 (1810/ 741-1869/ 768) -21.8 W48-W58 S37-S33
      8 1496  548 (S36W17 L=198)   810    134        1 (1456/ 477-1523/ 591)  60.3 W14-W19 S41-S32
      9  530  520 (S10E46 L=136)   739    177        0 ( 472/ 450- 585/ 583) -84.3 E47-E44 S15-S05
     10 1364  461 (S38W05 L=186)   579     68        2 (1331/ 428-1405/ 495) -51.3 W02-W07 S40-S34
     11  499  394 (S18E56 L=126)   660    123        0 ( 457/ 368- 528/ 434) -45.0 E59-E51 S19-S15
     12  581  397 (S19E49 L=133)   450     66        1 ( 562/ 367- 600/ 431)  23.2 E52-E45 S21-S17
     13  634  305 (S27E52 L=130)   434     20        1 ( 615/ 282- 656/ 327)  53.1 E54-E48 S28-S24
     14  722  245 (S33E51 L=131)   414     12        0 ( 704/ 225- 738/ 268)  18.4 E53-E47 S35-S31
  

    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