Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  965 1633 (N40E14 L=179)   654    163        0 ( 913/1595-1025/1690) -24.4 E19-E08 N38-N44
      2 1681 1573 (N45W57 L=250)  1096    133        0 (1641/1529-1712/1613) -59.0 W51-W62 N41-N48
      3  366 1482 (N22E58 L=135)   715    112        0 ( 332/1439- 404/1531)  66.8 E60-E54 N18-N25
      4 1716 1417 (N34W52 L=245)  1457    161        2 (1674/1349-1744/1482)  71.6 W48-W57 N29-N38
      5 1112 1367 (N23W02 L=194)   203     44        2 (1090/1348-1135/1389) -33.7 W00-W03 N22-N24
      6 1100 1261 (N16W02 L=195)   486    212        2 (1049/1216-1143/1329) -56.3 E01-W05 N13-N20
      7 1433 1191 (N16W25 L=217)   329    134        0 (1409/1145-1474/1250) -56.3 W22-W27 N13-N19
      8  799 1075 (N02E14 L=178)   372    109        1 ( 780/1022- 825/1117)  90.0 E15-E12 S01-N04
      9  418  913 (S13E39 L=153)   285     66        0 ( 384/ 891- 448/ 937)  31.0 E42-E37 S14-S10
     10  497  890 (S13E33 L=159)   355     60        1 ( 470/ 865- 520/ 917)  45.0 E35-E31 S14-S11
     11 1690  859 (S02W47 L=240)   345     63        1 (1665/ 833-1714/ 882) -21.8 W44-W49 S03-N00
     12  440  795 (S20E38 L=155)   599    139        4 ( 401/ 760- 501/ 835)   0.0 E40-E32 S22-S17
     13 1194  801 (S11W13 L=206)   262    116        0 (1132/ 770-1232/ 830)  39.8 W09-W15 S13-S08
     14  810  800 (S15E11 L=182)   236     75        0 ( 765/ 789- 846/ 810)  11.3 E13-E08 S15-S14
     15  702  654 (S26E18 L=175)   237     16        0 ( 685/ 632- 718/ 678) -71.6 E18-E16 S27-S24
     16  866  650 (S24E06 L=187)   309     44        0 ( 835/ 626- 895/ 673)  33.7 E08-E04 S26-S22
     17 1365  551 (S25W30 L=222)   836    100        3 (1309/ 524-1412/ 583)  38.7 W25-W33 S26-S22
     18  889  500 (S34E03 L=190)   340    110        0 ( 840/ 488- 945/ 512)   8.1 E06-W01 S35-S32
     19  456  465 (S44E43 L=149)  2063    215        4 ( 362/ 435- 539/ 509)  -2.7 E54-E33 S46-S39
     20 1169  206 (S56W34 L=227)   768     88        2 (1120/ 175-1212/ 236)  -7.1 W26-W43 S59-S52
  

    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