Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  622 1687 (N61E10 L= 44)  1900    245        5 ( 506/1631- 736/1737)  -5.7 E26-W04 N58-N64
      2 1301 1606 (N31W38 L= 91)   571    201        1 (1201/1571-1375/1645) -51.3 W33-W41 N26-N36
      3  412 1564 (N58E39 L= 14)   506     77        0 ( 393/1526- 442/1596)  78.7 E42-E35 N54-N59
      4  738 1512 (N43E04 L= 49)   654    191        0 ( 695/1437- 795/1588) -81.3 E06-E02 N36-N49
      5 1121 1448 (N27W19 L= 72)   504    226        0 (1003/1430-1213/1466) -30.3 W11-W23 N23-N31
      6  822 1234 (N23E06 L= 47)   624    190        5 ( 783/1154- 869/1296) -84.3 E08-E04 N17-N27
      7  898 1261 (N23E01 L= 53)   378    109        4 ( 860/1228- 947/1290) -45.0 E02-W02 N20-N25
      8  974 1183 (N16W01 L= 55)   289     89        1 ( 946/1141- 993/1221)  68.2 W00-W02 N13-N18
      9  651 1095 (N20E20 L= 33)   493    157        0 ( 591/1063- 734/1128) -32.0 E23-E15 N16-N22
     10 1810  915 (S23W50 L=103)  1388    319        0 (1706/ 836-1883/1043)  12.8 W38-W61 S27-S18
     11 1655  895 (S19W35 L= 88)   496     86        1 (1626/ 854-1689/ 933) -63.4 W32-W37 S22-S16
     12 1581  801 (S22W28 L= 81)   512    154        0 (1531/ 741-1627/ 858)  24.0 W22-W32 S24-S19
     13 1568  645 (S32W24 L= 77)   306     96        0 (1525/ 630-1604/ 667)  -8.1 W20-W27 S32-S29
     14 1082  542 (S23E10 L= 43)   289     60        0 (1059/ 513-1112/ 565)  26.6 E11-E07 S24-S21
     15  960  376 (S30E24 L= 29)   344     91        1 ( 920/ 353- 991/ 414)  18.4 E27-E21 S31-S28
  

    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