Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1380 1317 (N18W13 L= 47)   229     74        0 (1342/1281-1408/1350) -31.0 W10-W15 N16-N19
      2  204 1141 (S17E59 L=335)  1255    222        2 ( 165/1029- 233/1256)  90.0 E61-E57 S24-S09
      3  441 1144 (S13E39 L=356)  1030    231        1 ( 404/1051- 479/1239) -79.7 E42-E35 S18-S07
      4  505 1159 (S11E34 L=360)   311     45        0 ( 483/1127- 534/1188)  76.0 E35-E32 S13-S08
      5 1884  991 (N16W59 L= 93)  3310    537        8 (1813/ 912-1937/1071)  -9.5 W50-W68 N11-N20
      6  884  928 (S16E06 L= 28)   486    177        0 ( 823/ 843- 916/1004) -33.7 E10-E01 S19-S12
      7 1528  870 (S02W33 L= 67)  1032    205        1 (1438/ 822-1617/ 948)  -7.6 W25-W40 S04-N00
      8 1049  812 (S18W07 L= 41)   231     20        0 (1034/ 784-1065/ 839) -71.6 W05-W07 S19-S16
      9  574  779 (S32E23 L= 11)  1241    369        0 ( 414/ 748- 742/ 811)  11.3 E35-E10 S35-S28
     10 1710  698 (S06W53 L= 87)   314     74        0 (1694/ 674-1729/ 727) -21.8 W50-W55 S07-S04
     11 1597  591 (S15W49 L= 83)  1142    229        1 (1498/ 559-1691/ 642)  36.9 W41-W54 S18-S09
     12 1740  503 (S14W67 L=101)  3618    418        4 (1660/ 408-1802/ 590)  59.7 W61-W75 S21-S09
     13 1651  484 (S18W59 L= 93)   378     87        1 (1630/ 462-1680/ 510)   9.5 W56-W62 S19-S17
     14 1279  472 (S31W33 L= 67)   832    138        0 (1203/ 448-1358/ 503)  45.0 W28-W36 S34-S27
     15 1543  441 (S24W53 L= 87)   608    121        1 (1517/ 387-1574/ 495) -74.1 W50-W55 S27-S20
  

    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