Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  569 1598 (N15E46 L=136)   315     70        0 ( 539/1562- 598/1626)  80.5 E46-E44 N11-N17
      2  665 1400 (N05E31 L=150)   272     64        0 ( 627/1374- 703/1422)  45.0 E32-E28 N02-N06
      3 1250 1330 (N16W04 L=186)   585    215        0 (1183/1252-1290/1415) -45.0 E01-W07 N11-N19
      4  221 1241 (S13E61 L=120)   566    201        2 ( 187/1203- 266/1288) -18.4 E67-E54 S14-S10
      5 1076 1191 (N04E02 L=180)   307     71        4 (1044/1158-1100/1219) -18.4 E03-W00 N01-N05
      6  518 1097 (S15E32 L=149)   219     54        1 ( 491/1079- 550/1112)  45.0 E33-E29 S16-S13
      7  362  942 (S28E41 L=141)  1112    261        0 ( 272/ 878- 443/1006)  40.2 E48-E35 S33-S22
      8 1361  740 (S13W27 L=209)   203    104        0 (1321/ 700-1379/ 794) -33.7 W23-W29 S14-S10
      9 1527  770 (S06W37 L=218)   395    116        2 (1476/ 747-1579/ 791)  14.0 W32-W40 S07-S04
     10 1082  674 (S24W14 L=195)   198     49        0 (1054/ 661-1116/ 687)  14.0 W11-W15 S25-S23
     11  912  572 (S36W07 L=189)   658    153        1 ( 844/ 514- 987/ 624)  -4.4 W01-W14 S37-S32
     12 1176  565 (S28W23 L=205)   844    217        1 (1127/ 486-1248/ 616) -77.5 W19-W28 S31-S22
     13 1645  389 (S21W66 L=247)  2051    334        4 (1578/ 352-1731/ 428)  26.6 W59-W75 S23-S15
     14 1471  395 (S27W51 L=232)   308     75        1 (1447/ 371-1497/ 416) -21.8 W48-W53 S28-S25
  

    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