Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  636 1833 (N33E62 L=264)   866     81        0 ( 608/1807- 674/1870) -60.3 E65-E57 N30-N37
      2  984 1742 (N35E26 L=299)   434     71        0 ( 968/1704-1003/1779) -56.3 E28-E23 N32-N38
      3  865 1696 (N29E31 L=294)   556    160        1 ( 785/1648- 921/1722)   0.0 E36-E25 N26-N30
      4 1261 1432 (N22W03 L=328)   434    117        0 (1201/1396-1306/1459)  -8.1 E01-W06 N21-N23
      5 1144 1327 (N13E01 L=324)   216     68        0 (1118/1293-1167/1361) -45.0 E03-W00 N11-N14
      6  856 1242 (N01E15 L=310)   551    178        0 ( 815/1175- 906/1323) -32.0 E18-E10 S01-N04
      7 1768 1020 (N14W47 L= 12)  1421    366        1 (1675/ 867-1826/1155) -32.3 W36-W56 N07-N20
      8 1642 1071 (N13W36 L=  1)   780    124        1 (1620/1002-1663/1135) -76.0 W33-W37 N09-N17
      9  717 1085 (S11E19 L=306)   553    260        1 ( 609/1061- 845/1112)  19.7 E25-E11 S13-S08
     10  861  864 (S20E05 L=320)   320    100        0 ( 809/ 850- 912/ 878)  26.6 E08-E02 S21-S18
     11  607  831 (S28E21 L=305)   407    116        1 ( 544/ 817- 671/ 847)  18.4 E25-E16 S30-S26
     12 1063  752 (S21W10 L=335)   412    151        0 ( 994/ 738-1141/ 768)  26.6 W05-W14 S23-S19
     13  792  644 (S35E03 L=322)  1048    216        2 ( 689/ 609- 892/ 687)  33.7 E10-W02 S38-S30
     14 1483  393 (S28W54 L= 20)  1517    182        2 (1400/ 357-1569/ 439)  51.3 W48-W59 S32-S22
     15 1249  249 (S44W52 L= 17)   613     79        0 (1223/ 228-1285/ 278)  45.0 W47-W55 S45-S41
  

    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