Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  959 1483 (N34W10 L= 97)   262     52        1 ( 929/1462- 992/1498) -14.0 W08-W12 N32-N35
      2 1811 1361 (N00W64 L=150)  1163    262        4 (1767/1323-1868/1427) -49.4 W58-W70 S03-N04
      3 1086 1298 (N20W11 L= 97)   285    109        0 (1065/1239-1114/1349)  39.8 W08-W14 N16-N21
      4 1699 1210 (S03W46 L=133)  1071    198        1 (1666/1124-1741/1314)  79.7 W43-W49 S09-N02
      5  865 1101 (N15E07 L= 79)   311    164        1 ( 785/1087- 949/1125) -16.7 E11-E01 N13-N16
      6  446 1013 (N20E36 L= 51)   566    239        0 ( 362/ 961- 549/1062) -36.9 E41-E29 N14-N24
      7 1874  939 (S25W55 L=141)   814    167        1 (1831/ 863-1904/ 997)  26.6 W49-W59 S27-S21
      8  618  942 (N12E26 L= 61)   211     67        1 ( 597/ 897- 637/ 968)  45.0 E27-E23 N09-N13
      9 1421  761 (S19W16 L=102)   907    334        2 (1374/ 640-1454/ 949)  53.1 W10-W22 S26-S09
     10  931  907 (N02E08 L= 78)   290     74        2 ( 888/ 874- 962/ 946)  18.4 E11-E05 N01-N04
     11  474  650 (S01E44 L= 42)   340     93        1 ( 460/ 605- 493/ 691)  53.1 E45-E41 S03-N01
     12 1173  483 (S29E07 L= 79)   925    256        1 (1074/ 427-1233/ 599)  19.7 E14-W00 S31-S23
     13  711  437 (S19E37 L= 50)   250    105        1 ( 694/ 401- 724/ 485)  45.0 E38-E33 S21-S16
     14  450  355 (S19E62 L= 24)  1932    284        6 ( 391/ 303- 501/ 418) -66.0 E66-E58 S23-S13
  

    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