Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  599 1622 (N46E35 L=306)   417     81        1 ( 555/1603- 643/1636)  15.9 E38-E30 N44-N46
      2 1284 1618 (N42W25 L=  5)   559    147        2 (1207/1598-1350/1631)  -4.8 W18-W30 N40-N43
      3 1686 1545 (N33W57 L= 38)   859    134        1 (1632/1511-1737/1576) -32.0 W52-W61 N30-N35
      4  529 1492 (N36E37 L=304)  1672    357        3 ( 420/1409- 630/1548) -23.2 E47-E26 N29-N39
      5 1614 1432 (N26W46 L= 26)   374     70        0 (1583/1409-1648/1448) -31.0 W43-W48 N24-N27
      6 1001 1349 (N25E00 L=340)   439    102        1 ( 942/1330-1058/1364) -15.9 E04-W03 N23-N25
      7 1814 1238 (N12W61 L= 41)  1044    229        1 (1746/1159-1872/1295) -42.0 W54-W67 N06-N16
      8 1180 1231 (N16W11 L=351)   953    178        2 (1107/1156-1244/1289) -52.1 W06-W14 N11-N20
      9  466 1229 (N18E38 L=303)   328    111        0 ( 450/1174- 480/1280) -81.9 E38-E36 N14-N21
     10  283  911 (S01E53 L=287)   493    129        1 ( 239/ 894- 318/ 939)   0.0 E57-E49 S02-N00
     11 1628  849 (S10W40 L= 20)  1257    311        2 (1537/ 763-1725/ 938) -36.9 W32-W48 S16-S03
     12 1092  687 (S17W03 L=343)  1029    355        3 ( 942/ 572-1223/ 830)  39.8 E07-W11 S24-S08
     13 1312  549 (S28W18 L=359)  2336    431        3 (1138/ 431-1470/ 705)  36.5 W05-W28 S35-S17
     14 1559  495 (S34W39 L= 19)   316     31        0 (1541/ 475-1578/ 515)  71.6 W37-W40 S35-S32
  

    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